Option Explicit
Sub P_Sample025()
    Dim myFso As Scripting.FileSystemObject
    Set myFso = New Scripting.FileSystemObject
    MsgBox "SystemƧ|:" & myFso.GetSpecialFolder _
    (SpecialFolder:=SystemFolder).Path
    MsgBox "TemporaryƧ|:" & myFso.GetSpecialFolder _
    (SpecialFolder:=TemporaryFolder).Path
    MsgBox "WindowsƧ|:" & myFso.GetSpecialFolder _
    (SpecialFolder:=WindowsFolder).Path
    Set myFso = Nothing	'
End Sub
